object TeknikSiparisF: TTeknikSiparisF
  Left = 324
  Top = 186
  BorderStyle = bsSingle
  Caption = 'Teknik Servis Sipari'#351' Teklif Formu'
  ClientHeight = 537
  ClientWidth = 839
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel4: TPanel
    Left = 0
    Top = 496
    Width = 839
    Height = 41
    Align = alBottom
    TabOrder = 2
    DesignSize = (
      839
      41)
    object lblRiskliBayi: TLabel
      Left = 201
      Top = 12
      Width = 314
      Height = 16
      Caption = 'Riskli Bayi '#220'cret Yat'#305'r'#305'lmadan '#304#351'lem Yapmay'#305'n'#305'z!!!'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object bkaydet: TBitBtn
      Left = 8
      Top = 8
      Width = 89
      Height = 25
      Caption = '&Kaydet'
      TabOrder = 0
      OnClick = bkaydetClick
    end
    object bvazgec: TBitBtn
      Left = 104
      Top = 8
      Width = 89
      Height = 25
      Caption = '&Vazge'#231
      TabOrder = 1
      OnClick = bvazgecClick
    end
    object bkapat: TBitBtn
      Left = 740
      Top = 8
      Width = 89
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Kapat'
      TabOrder = 2
      OnClick = bkapatClick
    end
  end
  object PC: TPageControl
    Left = 0
    Top = 318
    Width = 839
    Height = 178
    ActivePage = TS1
    Align = alClient
    TabOrder = 1
    object TS2: TTabSheet
      Caption = 'Hizmet Bedeli Giri'#351'i'
      ImageIndex = 1
      object Grid2: TwwDBGrid
        Left = 0
        Top = 0
        Width = 831
        Height = 124
        DisableThemes = False
        ControlType.Strings = (
          'Hizmetid;CustomEdit;lcHizmet;T'
          'Tipi;CustomEdit;Tipi;T')
        Selected.Strings = (
          'Hizmetid'#9'50'#9'Hizmet T'#252'r'#252#9'F'
          'Fiyat1'#9'8'#9'Fiyat'#9'F'
          'Tipi'#9'3'#9'Tipi'#9'F'
          'KdvFiyat'#9'12'#9'Kdvsiz Fiyat'#9'F'
          'Fiyat'#9'12'#9'Toplam'#9'F'
          'Aciklama'#9'38'#9'A'#231#305'klama'#9'F')
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        Constraints.MinHeight = 100
        DataSource = dsTeknikHizmet
        KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
        TabOrder = 0
        TitleAlignment = taLeftJustify
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        UseTFields = False
        OnFieldChanged = Grid2FieldChanged
        PaintOptions.AlternatingRowColor = 16310998
        PaintOptions.ActiveRecordColor = 15183770
      end
      object lcHizmet: TwwDBLookupCombo
        Left = 17
        Top = 46
        Width = 286
        Height = 22
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'Adi'#9'60'#9'Adi'#9'F'
          'HHTipi'#9'12'#9'HHTipi'#9'F'
          'Fiyat'#9'8'#9'Fiyat'#9'F')
        LookupTable = aqHizmetList
        LookupField = 'Ref'
        Navigator = False
        TabOrder = 1
        AutoDropDown = True
        ShowButton = True
        UseTFields = False
        AllowClearKey = True
        OnCloseUp = lcHizmetCloseUp
      end
      object Panel5: TPanel
        Left = 0
        Top = 124
        Width = 831
        Height = 25
        Align = alBottom
        BevelInner = bvSpace
        BorderStyle = bsSingle
        TabOrder = 3
        object Label6: TLabel
          Left = 544
          Top = 3
          Width = 68
          Height = 14
          Caption = 'Hizmet Toplam'
          Transparent = True
        end
        object LPB9: TLabel
          Left = 685
          Top = 1
          Width = 14
          Height = 14
          Hint = 'Fare '#199'ift Klik ile ( YTL / $ )  Se'#231'imi '
          Caption = 'TL'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
          Transparent = True
        end
        object HizmetTutar: TStaticText
          Left = 615
          Top = 1
          Width = 67
          Height = 18
          AutoSize = False
          BevelKind = bkTile
          TabOrder = 0
        end
      end
      object Tipi: TwwDBComboBox
        Left = 85
        Top = 85
        Width = 22
        Height = 22
        ShowButton = False
        Style = csDropDown
        MapList = True
        AllowClearKey = False
        AutoDropDown = True
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          'TL'#9'1'
          '$'#9'2')
        Sorted = False
        TabOrder = 2
        UnboundDataType = wwDefault
      end
    end
    object TS1: TTabSheet
      Caption = 'Sipari'#351' Bedeli Giri'#351'i'
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 831
        Height = 149
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Grid1: TwwDBGrid
          Left = 0
          Top = 0
          Width = 831
          Height = 124
          DisableThemes = False
          ControlType.Strings = (
            'stokkodu;CustomEdit;StokKoduk;T'
            'cinsi;CustomEdit;CinsiK;T'
            'islem;CustomEdit;islemtipik;T'
            'ambar;CustomEdit;ambark;T'
            'birimfiyat;CustomEdit;edFiyat;T')
          Selected.Strings = (
            'stokkodu'#9'23'#9'Stok Kodu'#9#9
            'cinsi'#9'29'#9'Cinsi'#9'F'#9
            'miktar'#9'10'#9'Miktar'#9#9
            'Kdv'#9'5'#9'Kdv'#9'F'
            'KdvFiyat'#9'12'#9'Kdvsiz Fiyat'#9'F'
            'birimfiyat'#9'10'#9'Birim Fiyat'#9'F'
            'ambar'#9'15'#9'Ambar'#9'F'
            'fiyat'#9'11'#9'Toplam Fiyat'#305#9'T'
            'ErpStok'#9'7'#9'ErpStok'#9'T')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          Constraints.MinHeight = 100
          DataSource = TeknikSiparisQS
          KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          UseTFields = False
          OnFieldChanged = Grid1FieldChanged
          PaintOptions.AlternatingRowColor = 16310998
          PaintOptions.ActiveRecordColor = 15183770
        end
        object StokKoduk: TwwDBComboDlg
          Tag = 1
          Left = 24
          Top = 60
          Width = 136
          Height = 22
          ShowButton = True
          Style = csDropDown
          TabOrder = 1
          WordWrap = False
          UnboundDataType = wwDefault
          OnExit = StokKoduBul
        end
        object CinsiK: TwwDBComboDlg
          Tag = 2
          Left = 168
          Top = 61
          Width = 178
          Height = 22
          ShowButton = True
          Style = csDropDown
          TabOrder = 2
          WordWrap = False
          UnboundDataType = wwDefault
          OnExit = StokKoduBul
        end
        object ambark: TwwDBLookupCombo
          Left = 440
          Top = 60
          Width = 94
          Height = 22
          DisableThemes = False
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            'DepoAdi'#9'20'#9'Depo Ad'#305#9'F'#9)
          LookupTable = dm.AmbarQ
          LookupField = 'id'
          Style = csDropDownList
          Color = clWhite
          Navigator = False
          TabOrder = 3
          AutoDropDown = True
          ShowButton = True
          UseTFields = False
          AllowClearKey = True
          ShowMatchText = True
        end
        object Panel3: TPanel
          Left = 0
          Top = 124
          Width = 831
          Height = 25
          Align = alBottom
          BevelInner = bvSpace
          BorderStyle = bsSingle
          TabOrder = 4
          object Label4: TLabel
            Left = 520
            Top = 3
            Width = 69
            Height = 14
            Caption = 'Sipari'#351' Toplam'
            Transparent = True
          end
          object LPB8: TLabel
            Left = 661
            Top = 1
            Width = 6
            Height = 14
            Hint = 'Fare '#199'ift Klik ile ( YTL / $ )  Se'#231'imi '
            Caption = '$'
            Font.Charset = TURKISH_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = [fsBold, fsUnderline]
            ParentFont = False
            Transparent = True
          end
          object toplamtutark: TStaticText
            Left = 592
            Top = 1
            Width = 67
            Height = 18
            AutoSize = False
            BevelKind = bkTile
            TabOrder = 0
          end
        end
        object edFiyat: TwwDBEdit
          Left = 361
          Top = 92
          Width = 64
          Height = 22
          TabOrder = 5
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
      end
    end
    object TSFatura: TTabSheet
      Caption = 'Fatura Bilgileri'
      ImageIndex = 2
      object Label30: TLabel
        Left = 14
        Top = 10
        Width = 47
        Height = 14
        Alignment = taRightJustify
        Caption = 'Fatura No'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object FaturaNo: TwwDBComboDlg
        Left = 66
        Top = 7
        Width = 141
        Height = 22
        OnCustomDlg = FaturaNoCustomDlg
        ShowButton = True
        Style = csDropDown
        Color = clInfoBk
        DataField = 'FaturaBilisNo'
        ReadOnly = True
        TabOrder = 0
        WordWrap = False
        UnboundDataType = wwDefault
      end
      object btFaturaOlustur: TBitBtn
        Left = 215
        Top = 0
        Width = 111
        Height = 33
        Cursor = crHandPoint
        Caption = 'Fatura Olu'#351'tur'
        TabOrder = 1
        Visible = False
        OnClick = btFaturaOlusturClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 839
    Height = 318
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label7: TLabel
      Left = 1054
      Top = 139
      Width = 29
      Height = 14
      Caption = 'B'#246'l'#252'm'
      Transparent = True
      Visible = False
    end
    object Label8: TLabel
      Left = 1054
      Top = 115
      Width = 43
      Height = 14
      Caption = #220'st Grup'
      Transparent = True
      Visible = False
    end
    object Label9: TLabel
      Left = 1054
      Top = 93
      Width = 24
      Height = 14
      Caption = 'Grup'
      Transparent = True
      Visible = False
    end
    object Label40: TLabel
      Left = 8
      Top = 72
      Width = 52
      Height = 28
      Alignment = taCenter
      Caption = 'Yat'#305'r'#305'lacak Hesap'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object Label16: TLabel
      Left = 8
      Top = 56
      Width = 52
      Height = 14
      Caption = 'Onaylayan'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label11: TLabel
      Left = 8
      Top = 95
      Width = 52
      Height = 28
      Alignment = taCenter
      Caption = 'Yat'#305'r'#305'lacak Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object lbTeknik: TLabel
      Left = 642
      Top = 218
      Width = 48
      Height = 14
      Caption = 'Teknisyen'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label5: TLabel
      Left = 8
      Top = 126
      Width = 59
      Height = 14
      Caption = #214'deme '#350'ekli'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lcBolum: TwwDBLookupCombo
      Left = 1101
      Top = 135
      Width = 133
      Height = 22
      TabStop = False
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'TTipi'#9'25'#9'TTipi'#9'F')
      LookupTable = Tekniktipi
      LookupField = 'tkodu'
      Style = csDropDownList
      Color = clInfoBk
      Navigator = False
      ReadOnly = True
      TabOrder = 9
      Visible = False
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object lcUstGrup: TwwDBLookupCombo
      Left = 1101
      Top = 112
      Width = 133
      Height = 22
      TabStop = False
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'isim'#9'50'#9'isim'#9#9)
      LookupTable = dm.aqUstGrup
      LookupField = 'id'
      Style = csDropDownList
      Color = clInfoBk
      Navigator = False
      ReadOnly = True
      TabOrder = 8
      Visible = False
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object lcGrup: TwwDBLookupCombo
      Left = 1101
      Top = 89
      Width = 133
      Height = 22
      TabStop = False
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'isim'#9'50'#9'isim'#9#9)
      LookupTable = dm.aqGrup
      LookupField = 'id'
      Style = csDropDownList
      Color = clInfoBk
      Navigator = False
      ReadOnly = True
      TabOrder = 7
      Visible = False
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object YHesap: TwwDBLookupCombo
      Left = 69
      Top = 76
      Width = 141
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taRightJustify
      Selected.Strings = (
        'HesapKodu'#9'30'#9'IBAN'#9'F'
        'BankaAdi'#9'20'#9'BankaAdi'#9'F'
        'SubeAdi'#9'20'#9'SubeAdi'#9'F'
        'SubeKodu'#9'10'#9'SubeKodu'#9#9
        'DIBAN'#9'30'#9'DOLAR IBAN'#9'F')
      DataField = 'Banka'
      LookupTable = aqBanka
      LookupField = 'Ref'
      Options = [loColLines, loTitles]
      Style = csDropDownList
      Navigator = False
      ParentFont = False
      TabOrder = 2
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
    end
    object YTarih: TwwDBDateTimePicker
      Left = 69
      Top = 99
      Width = 141
      Height = 22
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'YatirmaTarih'
      Epoch = 1950
      ShowButton = True
      TabOrder = 3
    end
    object onaylayank: TwwDBEdit
      Left = 69
      Top = 53
      Width = 141
      Height = 22
      DataField = 'onaylayan'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object GroupBox1: TGroupBox
      Left = 217
      Top = 53
      Width = 300
      Height = 63
      Caption = '  Verilecek Bilgiler  '
      TabOrder = 5
      object cbBilgi2: TwwCheckBox
        Left = 9
        Top = 38
        Width = 288
        Height = 17
        TabStop = False
        DisableThemes = False
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = '3 G'#252'n i'#231'inde Para Yatmaz ise, '#220'r'#252'n Kargoya Verilecek'
        DataField = 'VerilenBilgi2'
        TabOrder = 1
      end
      object cbBilgi1: TwwCheckBox
        Left = 9
        Top = 18
        Width = 225
        Height = 17
        TabStop = False
        DisableThemes = False
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = 'Havaleye FormNo sunu Girin'
        DataField = 'VerilenBilgi1'
        TabOrder = 0
      end
    end
    object grpTop: TGroupBox
      Left = 0
      Top = 0
      Width = 839
      Height = 47
      Align = alTop
      Caption = '  Form Bilgileri  '
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 20
        Width = 40
        Height = 14
        Caption = 'Form No'
        Transparent = True
      end
      object Label2: TLabel
        Left = 147
        Top = 20
        Width = 44
        Height = 14
        Caption = 'Firma Ad'#305
        Transparent = True
      end
      object Label64: TLabel
        Left = 570
        Top = 20
        Width = 54
        Height = 14
        Caption = 'M'#252#351'teri Tipi'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label10: TLabel
        Left = 425
        Top = 20
        Width = 23
        Height = 14
        Caption = 'Tarih'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label34: TLabel
        Left = 744
        Top = 20
        Width = 17
        Height = 14
        Caption = 'Kur'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object firmaadik: TEdit
        Left = 199
        Top = 17
        Width = 209
        Height = 22
        TabStop = False
        Color = clInfoBk
        ReadOnly = True
        TabOrder = 1
      end
      object FormNok: TEdit
        Left = 56
        Top = 17
        Width = 72
        Height = 22
        TabStop = False
        Color = clInfoBk
        ReadOnly = True
        TabOrder = 0
      end
      object edTarih: TwwDBDateTimePicker
        Left = 457
        Top = 17
        Width = 94
        Height = 22
        TabStop = False
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        Color = clInfoBk
        DataField = 'EklemeTarih'
        Epoch = 1950
        ShowButton = True
        TabOrder = 2
        UnboundDataType = wwDTEdtDate
      end
      object Kur: TwwDBEdit
        Left = 765
        Top = 17
        Width = 67
        Height = 22
        TabStop = False
        Color = 14811135
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object MTipi: TwwDBLookupCombo
        Left = 629
        Top = 17
        Width = 93
        Height = 22
        TabStop = False
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'FiyatAdi'#9'25'#9'FiyatAdi'#9#9)
        DataField = 'MTipi'
        LookupTable = aqFiyatTuru
        LookupField = 'Ref'
        Style = csDropDownList
        Color = 14811135
        Navigator = False
        ReadOnly = True
        TabOrder = 3
        AutoDropDown = True
        ShowButton = True
        UseTFields = False
        AllowClearKey = False
      end
    end
    object GroupBox3: TGroupBox
      Left = 523
      Top = 53
      Width = 313
      Height = 159
      Caption = '  Fatura Kesilecek Ki'#351'i veya Firma Bilgisi  '
      TabOrder = 6
      object Label12: TLabel
        Left = 28
        Top = 18
        Width = 52
        Height = 14
        Caption = 'Ki'#351'i / Firma'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label13: TLabel
        Left = 22
        Top = 42
        Width = 58
        Height = 14
        Caption = 'TC Kimlik No'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label14: TLabel
        Left = 4
        Top = 63
        Width = 75
        Height = 14
        Caption = 'Vergi Daire / No'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label15: TLabel
        Left = 50
        Top = 109
        Width = 30
        Height = 14
        Caption = 'Adres'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label21: TLabel
        Left = 44
        Top = 86
        Width = 35
        Height = 14
        Caption = 'Telefon'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Copy2: TSpeedButton
        Left = 43
        Top = 126
        Width = 25
        Height = 25
        Cursor = crHandPoint
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Glyph.Data = {
          36090000424D3609000000000000360000002800000018000000180000000100
          2000000000000009000000000000000000000000000000000000FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00A57B7300A57B
          7300A57B7300A57B7300A57B7300A57B7300A57B7300A57B7300A57B7300A57B
          7300A57B7300A57B7300A57B7300A57B73008C5A5A00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00B5847300DECE
          C600FFCEC600FFCEC600FFCEC600FFCEC600FFCEC600FFCEC600FFCEC600FFCE
          C600FFCEC600FFCEC600FFCEC600FFCEC6008C5A5A00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00B5847300DEC6
          B500F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EF
          E700F7EFE700F7EFE700F7EFE700FFDEBD008C5A5A00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00B5847300E7CE
          BD00F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EF
          E700F7EFE700F7EFE700F7EFE700FFDEBD008C5A5A00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00BD8C8400E7CE
          BD00F7EFE700FFE7CE00FFE7CE00FFE7CE00FFDEBD00FFDEBD00FFDEBD00FFDE
          BD00FFD6AD00FFD6AD00F7EFE700FFDEBD008C5A5A00FF00FF00FF00FF00FF00
          FF00A57B7300A57B7300A57B7300A57B7300A57B7300A57B7300BD8C8400DED6
          CE00F7EFE700FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE
          9C00FFCE9C00FFCE9C00F7EFE700FFDEBD008C5A5A00FF00FF00FF00FF00FF00
          FF00A57B7300FFD6CE00FFD6CE00FFD6CE00FFD6CE00FFD6CE00BD8C8400E7D6
          CE00F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EF
          E700FFF7E700F7EFE700F7EFE700FFDEBD009C6B6300FF00FF00FF00FF00FF00
          FF00A57B7300F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700CE9C8400EFDE
          CE00F7EFE700FFD6AD00FFD6AD00FFD6AD00FFD6AD00FFD6AD00FFD6AD00FFD6
          AD00F7D6A500F7D6A500F7EFE700FFDEBD009C6B6300FF00FF00FF00FF00FF00
          FF00A57B7300F7EFE700F7EFE700F7EFE700F7EFE700FFF7EF00CE9C8400EFDE
          D600F7EFE700FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE
          9C00FFCE9C00FFCE9C00F7EFE700FFDEBD009C6B6300FF00FF00FF00FF00FF00
          FF00B5847300F7EFE700FFDEBD00FFDEBD00FFDEBD00FFD6AD00CE9C8400EFE7
          DE00F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700F7EF
          E700F7EFE700F7EFE700F7EFE700FFDEBD00A57B7300FF00FF00FF00FF00FF00
          FF00B5847300F7EFE700FFCE9C00FFCE9C00FFCE9C00FFCE9C00DEAD8400EFE7
          DE00FFF7F700FFDEBD00FFDEBD00FFDEBD00FFDEBD00FFDEBD00FFDEBD00FFDE
          BD00FFDEBD00FFDEBD00F7EFE700FFDEBD00A57B7300FF00FF00FF00FF00FF00
          FF00B5847300F7EFE700F7EFE700F7EFE700F7EFE700F7EFE700DEAD8400EFE7
          DE00FFF7F700FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE9C00FFCE
          9C00FFCE9C00FFCE9C00F7EFE700FFDEBD00A57B7300FF00FF00FF00FF00FF00
          FF00BD8C8400FFF7EF00FFDEBD00FFDEBD00FFDEBD00FFDEBD00DEAD8400F7EF
          DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFFEF00FFF7EF00FFF7
          EF00FFF7E700FFF7E700F7EFE700FFDEBD00A57B7300FF00FF00FF00FF00FF00
          FF00BD8C8400FFF7EF00FFCE9C00FFCE9C00FFCE9C00FFCE9C00E7B58C00F7EF
          DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFFF700FFFFEF00FFF7
          EF00FFF7EF00FFE7CE00F7BDB500FFA5A500B5847300FF00FF00FF00FF00FF00
          FF00CE9C8400FFF7F700FFFFF700FFFFF700FFF7EF00FFF7EF00E7B58C00F7EF
          DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFF
          EF00FFFFEF00B5847300B5847300B5847300B5847300FF00FF00FF00FF00FF00
          FF00CE9C8400FFFFFF00FFDEBD00FFDEBD00FFDEBD00FFDEBD00EFBD9400FFF7
          E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          F700FFFFF700B5847300FFC67B00CE9C8400E7BDB500FF00FF00FF00FF00FF00
          FF00DEAD8400FFFFFF00FFCE9C00FFCE9C00FFCE9C00FFCE9C00EFBD9400FFF7
          E700FFFFFF00FFFFFF00FFFFFF00FFF7F700FFF7F700F7F7F700F7F7F700EFEF
          EF00EFEFEF00B5847300E7B58C00DEC6B500FF00FF00FF00FF00FF00FF00FF00
          FF00DEAD8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700EFBD9400DEAD
          8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD
          8400DEAD8400B5847300E7CEBD00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00E7B58C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFF700FFFF
          EF00FFF7EF00FFF7E700FFEFD600D6AD9400D6AD9400B5847300FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00E7B58C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          F700FFFFEF00FFFFEF00B5847300B5847300B5847300B5847300FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00EFBD9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFF700FFFFEF00B5847300FFC67B00DEAD8400E7BDB500FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00EFBD9400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFF7F700FFF7EF00B5847300E7B58C00DEC6B500FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00EFBD9400DEAD8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD8400DEAD
          8400DEAD8400DEAD8400B5847300E7CEBD00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
        Layout = blGlyphRight
        ParentFont = False
        OnClick = Copy2Click
      end
      object lUnityCari: TLabel
        Left = 208
        Top = 86
        Width = 86
        Height = 14
        Caption = 'Unity Carisi Var!'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object edFirma: TwwDBEdit
        Left = 84
        Top = 15
        Width = 224
        Height = 22
        CharCase = ecUpperCase
        DataField = 'FaturaFirma'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 59
        ParentFont = False
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object edTcKimlikNo: TwwDBEdit
        Left = 84
        Top = 38
        Width = 224
        Height = 22
        CharCase = ecUpperCase
        DataField = 'FaturaTcKimlikNo'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 11
        ParentFont = False
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object edVergiDaire: TwwDBEdit
        Tag = 20
        Left = 84
        Top = 61
        Width = 118
        Height = 22
        CharCase = ecUpperCase
        DataField = 'FaturaVergiDaire'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object edVergiNo: TwwDBEdit
        Tag = 15
        Left = 203
        Top = 61
        Width = 105
        Height = 22
        CharCase = ecUpperCase
        DataField = 'FaturaVergiNo'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object mmAdres: TDBMemo
        Left = 84
        Top = 107
        Width = 224
        Height = 45
        DataField = 'FaturaAdres'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 100
        ParentFont = False
        TabOrder = 5
      end
      object CbGonderen: TwwCheckBox
        Left = 204
        Top = -2
        Width = 104
        Height = 17
        TabStop = False
        DisableThemes = False
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = 'G'#246'nderenle Ayn'#305
        DataField = 'FaturaGonderen'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = CbGonderenClick
      end
      object edTelefon: TwwDBEdit
        Tag = 20
        Left = 84
        Top = 84
        Width = 118
        Height = 22
        CharCase = ecUpperCase
        DataField = 'FaturaTel'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
    object GroupBox4: TGroupBox
      Left = 7
      Top = 144
      Width = 516
      Height = 95
      Caption = '  '#220'cret Bilgileri  '
      TabOrder = 10
      object Label36: TLabel
        Left = 351
        Top = 35
        Width = 61
        Height = 26
        Alignment = taCenter
        AutoSize = False
        Caption = 'Yat'#305'ralacak Tutar'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object LPB6: TLabel
        Left = 489
        Top = 45
        Width = 14
        Height = 14
        Caption = 'TL'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
        Transparent = True
      end
      object Label23: TLabel
        Left = 13
        Top = 21
        Width = 64
        Height = 14
        Caption = 'Hizmet Bedeli'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LPB1: TLabel
        Left = 159
        Top = 21
        Width = 14
        Height = 14
        Caption = 'TL'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
        Transparent = True
      end
      object Label18: TLabel
        Left = 4
        Top = 44
        Width = 73
        Height = 14
        Caption = 'Upgrade Bedeli'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LPB2: TLabel
        Left = 159
        Top = 45
        Width = 6
        Height = 14
        Caption = '$'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label44: TLabel
        Left = 200
        Top = 21
        Width = 47
        Height = 14
        Caption = 'Sip.Bedeli'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LPB3: TLabel
        Left = 327
        Top = 21
        Width = 6
        Height = 14
        Caption = '$'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label62: TLabel
        Left = 186
        Top = 44
        Width = 60
        Height = 14
        Caption = 'Tespit Bedeli'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LPB4: TLabel
        Left = 327
        Top = 43
        Width = 14
        Height = 14
        Caption = 'TL'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
        Transparent = True
      end
      object Label65: TLabel
        Left = 383
        Top = 20
        Width = 29
        Height = 14
        Caption = 'Kargo'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LPB5: TLabel
        Left = 489
        Top = 21
        Width = 14
        Height = 14
        Caption = 'TL'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
        Transparent = True
      end
      object LPB7: TLabel
        Left = 489
        Top = 68
        Width = 14
        Height = 14
        Caption = 'TL'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
        Transparent = True
        Visible = False
      end
      object edYatirTutar: TwwDBEdit
        Left = 413
        Top = 41
        Width = 75
        Height = 22
        TabStop = False
        Color = 14811135
        DataField = 'YatiralacakTutar'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object toplamhizmetk: TwwDBEdit
        Left = 82
        Top = 18
        Width = 75
        Height = 22
        TabStop = False
        Color = 14811135
        DataField = 'toplamhizmet'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object upgradek: TwwDBEdit
        Left = 82
        Top = 41
        Width = 75
        Height = 22
        TabStop = False
        Color = 14811135
        DataField = 'parcabedeli'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object toplamparcak: TwwDBEdit
        Left = 250
        Top = 18
        Width = 75
        Height = 22
        TabStop = False
        Color = 14811135
        DataField = 'toplamparca'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object edTespitBedel: TwwDBEdit
        Left = 250
        Top = 41
        Width = 75
        Height = 22
        TabStop = False
        Color = 14811135
        DataField = 'TespitBedel'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object edKargoBedel: TwwDBEdit
        Left = 413
        Top = 18
        Width = 75
        Height = 22
        TabStop = False
        Color = 14811135
        DataField = 'KargoBedeli'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object StTopllamTutar: TStaticText
        Left = 349
        Top = 69
        Width = 66
        Height = 18
        Caption = 'Toplam Tutar'
        TabOrder = 6
        Visible = False
      end
      object stYatirilacakTutar: TStaticText
        Left = 413
        Top = 67
        Width = 75
        Height = 18
        Alignment = taRightJustify
        AutoSize = False
        BevelKind = bkSoft
        Color = clRed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        TabOrder = 7
        Visible = False
      end
    end
    object edTeknisyen: TwwDBEdit
      Left = 698
      Top = 214
      Width = 132
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 11
      UnboundDataType = wwDefault
      Visible = False
      WantReturns = False
      WordWrap = False
    end
    object cbOdemeSekli: TwwDBComboBox
      Left = 69
      Top = 122
      Width = 141
      Height = 22
      ShowButton = True
      Style = csDropDownList
      MapList = True
      AllowClearKey = False
      DataField = 'OdemeSekli'
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'ATM'#9'1'
        #304'nternet Havale'#9'2'
        'Banka Havale'#9'3'
        'Mail Order (Kart Numaras'#305' Vererek)'#9'4'
        'Nakit (Gelince Elden)'#9'5'
        'Cari Hesab'#305'ndan'#9'6'
        'Bilinmiyor'#9'7')
      Sorted = False
      TabOrder = 4
      UnboundDataType = wwDefault
    end
    object cbTutanak: TwwCheckBox
      Left = 226
      Top = 122
      Width = 107
      Height = 17
      TabStop = False
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #220'r'#252'n Tutanakl'#305
      DataField = 'Tutanak'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
      Visible = False
      ReadOnly = True
    end
    object btKomisyonHesapla: TBitBtn
      Left = 532
      Top = 214
      Width = 100
      Height = 25
      Caption = 'Komisyon Hesapla'
      TabOrder = 13
      OnClick = btKomisyonHesaplaClick
    end
    object cxGroupBox1: TcxGroupBox
      Left = 0
      Top = 239
      Align = alBottom
      Caption = ' Mail Bilgisi '
      TabOrder = 14
      Height = 79
      Width = 839
      object Label3: TLabel
        Left = 14
        Top = 19
        Width = 51
        Height = 14
        Caption = 'Mail Mesaj'#305
        Transparent = True
      end
      object Label22: TLabel
        Left = 525
        Top = 23
        Width = 50
        Height = 14
        Alignment = taCenter
        Caption = 'Mail Adres'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lcMailList: TwwDBLookupCombo
        Left = 579
        Top = 19
        Width = 151
        Height = 22
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'Email'#9'50'#9'Email'#9'F')
        LookupTable = aqMailList
        LookupField = 'Sira'
        Navigator = False
        ParentFont = False
        TabOrder = 1
        AutoDropDown = False
        ShowButton = True
        UseTFields = False
        AllowClearKey = True
      end
      object btMailGonder: TBitBtn
        Left = 733
        Top = 12
        Width = 100
        Height = 31
        Cursor = crHandPoint
        Caption = 'Mail G'#246'nder'
        TabOrder = 2
        OnClick = btMailGonderClick
      end
      object aciklamak: TwwDBEdit
        Left = 570
        Top = 89
        Width = 141
        Height = 22
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        UnboundDataType = wwDefault
        Visible = False
        WantReturns = False
        WordWrap = False
      end
      object MailMesaj: TwwDBRichEdit
        Left = 68
        Top = 17
        Width = 445
        Height = 56
        AutoURLDetect = False
        DataField = 'MailMesaj'
        PrintJobName = 'MailMesaj'
        TabOrder = 0
        WordWrap = False
        PopupOptions = [rpoPopupEdit, rpoPopupCut, rpoPopupCopy, rpoPopupPaste, rpoPopupParagraph, rpoPopupTabs, rpoPopupReplace]
        EditorOptions = []
        EditorCaption = 'Edit Rich Text'
        EditorPosition.Left = 0
        EditorPosition.Top = 0
        EditorPosition.Width = 0
        EditorPosition.Height = 0
        MeasurementUnits = muInches
        PrintMargins.Top = 1.000000000000000000
        PrintMargins.Bottom = 1.000000000000000000
        PrintMargins.Left = 1.000000000000000000
        PrintMargins.Right = 1.000000000000000000
        RichEditVersion = 2
        Data = {
          6B0000007B5C727466315C616E73695C616E7369637067313235345C64656666
          305C6465666C616E67313035357B5C666F6E7474626C7B5C66305C666E696C20
          417269616C3B7D7D0D0A5C766965776B696E64345C7563315C706172645C6630
          5C667331365C7061720D0A7D0D0A00}
      end
      object btSmsGonder: TBitBtn
        Left = 733
        Top = 48
        Width = 100
        Height = 27
        Cursor = crHandPoint
        Caption = 'Sms G'#246'nder'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = btSmsGonderClick
      end
    end
  end
  object TeknikSiparisQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = TeknikSiparisQAfterPost
    BeforePost = TeknikSiparisQBeforePost
    AfterPost = TeknikSiparisQAfterPost
    AfterDelete = TeknikSiparisQAfterPost
    Parameters = <
      item
        Name = 'TeknikFormno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 1
      end
      item
        Name = 'tipi'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'Select * from TeknikSiparis '
      'Where TeknikFormno=:TeknikFormno and tipi=:tipi')
    Left = 281
    Top = 287
  end
  object TeknikSiparisQS: TDataSource
    DataSet = TeknikSiparisQ
    Left = 356
    Top = 292
  end
  object ToplamFiyatQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'TeknikFormno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 1
      end>
    SQL.Strings = (
      
        'Select isnull(sum(fiyat),0) from TeknikSiparis Where TeknikFormn' +
        'o=:TeknikFormno')
    Left = 484
    Top = 284
  end
  object DistakipQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select stokkodu=dbo.getstokkodu(stokkod),cinsi=dbo.getcinsi(stok' +
        'kod),* from Distakip where formno=:formno')
    Left = 612
    Top = 241
  end
  object aqHizmetList: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 300
    Parameters = <
      item
        Name = 'MTipi'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'UstGrupId'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Bolum'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'GrupId'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'MarkaId'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'HTipi'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT *,Fiyat=(Case :MTipi When 1 then Fiyat1 '
      #9'When 2 then Fiyat2'
      #9'When 3  then Fiyat3 '
      #9'When 4 then Fiyat4 '
      #9'When 5 then Fiyat5 '
      #9'When 6 then Fiyat6 '
      #9'When 7 then Fiyat7 '
      #9'When 8 then Fiyat8 '
      #9'Else 0 End) ,'
      
        'HHTipi=(Case Htipi When 1 then '#39'Tespit Bedel'#39' When 2 then '#39'Hizme' +
        't Bedel'#39' When 3 then '#39'Kargo Bedel'#39' When 4 then '#39'Di'#287'er'#39' When 5 th' +
        'en '#39'Sipari'#351#39' end)'
      ' FROM TblTeknikServisFiyat'
      'Where Aktif=1 and ((UstGrupId is Null)or(UstGrupId=:UstGrupId))'
      ' and ((Bolum is Null)or(Bolum=:Bolum))'
      ' and ((GrupId is Null)or(GrupId=:GrupId))'
      'and  ((MarkaId is Null)or(MarkaId=:MarkaId))'
      'And  ((HTipi<>:HTipi))'
      'Order By HTipi,UstGrupId')
    Left = 204
    Top = 233
    object aqHizmetListRef: TAutoIncField
      FieldName = 'Ref'
      ReadOnly = True
    end
    object aqHizmetListAdi: TWideStringField
      FieldName = 'Adi'
      Size = 100
    end
    object aqHizmetListBayiFiyat: TBCDField
      FieldName = 'BayiFiyat'
      Precision = 18
      Size = 2
    end
    object aqHizmetListSonKFiyat: TBCDField
      FieldName = 'SonKFiyat'
      Precision = 18
      Size = 2
    end
    object aqHizmetListBolum: TIntegerField
      FieldName = 'Bolum'
    end
    object aqHizmetListUstGrupId: TIntegerField
      FieldName = 'UstGrupId'
    end
    object aqHizmetListTipi: TIntegerField
      FieldName = 'Tipi'
    end
    object aqHizmetListAktif: TBooleanField
      FieldName = 'Aktif'
    end
    object aqHizmetListHTipi: TIntegerField
      FieldName = 'HTipi'
    end
    object aqHizmetListMTipi: TIntegerField
      FieldName = 'MTipi'
    end
    object aqHizmetListMarkaId: TIntegerField
      FieldName = 'MarkaId'
    end
    object aqHizmetListGrupId: TIntegerField
      FieldName = 'GrupId'
    end
    object aqHizmetListFiyat: TBCDField
      FieldName = 'Fiyat'
      ReadOnly = True
      Precision = 18
      Size = 2
    end
    object aqHizmetListHHTipi: TStringField
      FieldName = 'HHTipi'
      ReadOnly = True
      Size = 12
    end
  end
  object dsHizmetList: TDataSource
    DataSet = aqHizmetList
    Left = 203
    Top = 290
  end
  object aqTeknikHizmet: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = aqTeknikHizmetAfterPost
    AfterInsert = aqTeknikHizmetAfterInsert
    BeforePost = aqTeknikHizmetBeforePost
    AfterPost = aqTeknikHizmetAfterPost
    AfterDelete = aqTeknikHizmetAfterPost
    Parameters = <
      item
        Name = 'TeknikFormno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 1
      end>
    SQL.Strings = (
      'Select * from TeknikHizmet'
      'Where TeknikFormno=:TeknikFormno')
    Left = 285
    Top = 234
    object aqTeknikHizmetid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object aqTeknikHizmettarih: TDateTimeField
      FieldName = 'tarih'
    end
    object aqTeknikHizmetteknikformno: TIntegerField
      FieldName = 'teknikformno'
    end
    object aqTeknikHizmetHizmetid: TIntegerField
      FieldName = 'Hizmetid'
    end
    object aqTeknikHizmetFiyat: TBCDField
      FieldName = 'Fiyat'
      ReadOnly = True
      Precision = 18
      Size = 2
    end
    object aqTeknikHizmetTipi: TStringField
      FieldName = 'Tipi'
      ReadOnly = True
      FixedChar = True
      Size = 1
    end
    object aqTeknikHizmetAciklama: TStringField
      FieldName = 'Aciklama'
      Size = 50
    end
    object aqTeknikHizmetFiyat1: TBCDField
      FieldName = 'Fiyat1'
      ReadOnly = True
      Precision = 18
      Size = 2
    end
    object aqTeknikHizmetKdvFiyat: TFloatField
      FieldName = 'KdvFiyat'
    end
  end
  object dsTeknikHizmet: TDataSource
    DataSet = aqTeknikHizmet
    Left = 420
    Top = 290
  end
  object ToplamHizmetQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'TeknikFormno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select isnull(sum(fiyat),0) from TeknikHizmet Where TeknikFormno' +
        '=:TeknikFormno')
    Left = 473
    Top = 233
  end
  object acList: TActionList
    Left = 553
    Top = 231
    object acKaydet: TAction
      Caption = '&Kaydet'
      ShortCut = 113
      OnExecute = bkaydetClick
    end
  end
  object Tekniktipi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select tkodu,TTipi from tekniktipi')
    Left = 537
    Top = 282
  end
  object aqBanka: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select Bh.*,b.BankaAdi from '
      'tblBankaHesap bh '
      'join tblbanka b on (bh.BankaRef=b.Ref)'
      'Where bh.Aktif=1 and bh.Tur=1'
      'order By b.BankaAdi DESC')
    Left = 397
    Top = 230
  end
  object aqTeknik: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select c.firmaadi,t.* from teknik t'
      'left Join cari c on (t.carikodGir=c.carikod)'
      'where formno=:FormNo')
    Left = 95
    Top = 257
  end
  object dsTeknik: TDataSource
    DataSet = aqTeknik
    Left = 92
    Top = 304
  end
  object aqFiyatTuru: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'Select * from TblFiyatAdi Order by Ref')
    Left = 478
    Top = 343
  end
  object CustomizeDlg1: TCustomizeDlg
    StayOnTop = False
    Left = 554
    Top = 227
  end
  object aqMailList: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'FormNo1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'FormNo2'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Sira=1,Email=ISNULL(SendMailAdress,'#39#39') ,Yetkili='#39#39' '
      'FROM Teknik T'
      
        'WHERE T.FormNo=:FormNo AND (PATINDEX('#39'%@%'#39',ISNULL(T.SendMailAdre' +
        'ss,'#39#39'))>0)'
      'UNION'
      'SELECT Sira=1,Email=ISNULL(S.EPOSTA,'#39#39') ,Yetkili=S.YETKILI '
      'FROM Teknik T'
      'JOIN tbl_SevkiyatAdres S ON (T.SEVKIDGIR=S.ID)'
      
        'WHERE T.FormNo=:FormNo1 AND (PATINDEX('#39'%@%'#39',ISNULL(S.EPOSTA,'#39#39'))' +
        '>0)'
      'UNION'
      'SELECT Sira=2,Email=ISNULL(C.email,'#39#39'),C.Yetkili'
      'FROM Teknik T'
      'JOIN cari C ON (C.carikod=T.carikodGir)'
      
        'WHERE T.FormNo=:FormNo2 AND (PATINDEX('#39'%@%'#39',ISNULL(C.email,'#39#39'))>' +
        '0)'
      'ORDER BY Sira')
    Left = 590
    Top = 334
  end
end
